<% Response.CodePage=65001%> 
<% Response.Charset="UTF-8" %> 
<!--#Include File="config.inc.asp"-->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留

if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end if

dim connstr,RZ_DBPATH
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
RZ_DBPATH=RZ_ROOT&RZ_DATABASE_PATH

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(RZ_DBPATH)
CONN.Open connstr
If Err Then
	err.Clear
	Set conn = Nothing
	Response.Write "数据库链接出错，请检查config.inc.asp设置是否正确。"
	Response.End
End If
%>



